home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / borland / jnfb88.zip / CFLOAT.ZIP / DOT2.C < prev    next >
Text File  |  1987-06-23  |  158b  |  10 lines
  1. /* Listing 5: */
  2.  
  3. double dot(int n, double *x, double *y)
  4. {
  5.      double sum = 0.;
  6.      while (n--)
  7.           sum += *x++ * *y++;
  8.      return sum;
  9. }
  10.